/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / calendar / cal-mayan.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 31 3a 34 | 38 20 31 39 39 35 0a 3b | 13:51:4|8 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 63 61 | 6c 65 6e 64 61 72 2f 63 |/lisp/ca|lendar/c|
|00000090| 61 6c 2d 6d 61 79 61 6e | 2e 65 6c 0a 3b 3b 3b 20 |al-mayan|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 72 65 71 75 69 72 65 20 | 27 63 61 6c 65 6e 64 61 |require |'calenda|
|00000200| 72 29 0a 28 66 73 65 74 | 20 27 6d 61 79 61 6e 2d |r).(fset| 'mayan-|
|00000210| 61 64 6a 75 73 74 65 64 | 2d 6d 6f 64 20 23 5b 28 |adjusted|-mod #[(|
|00000220| 6d 20 6e 29 20 22 c0 09 | 53 5c 6e 5c 22 54 87 22 |m n) "..|S\n\"T."|
|00000230| 20 5b 6d 6f 64 20 6d 20 | 6e 5d 20 33 20 22 5c 0a | [mod m |n] 3 "\.|
|00000240| 4e 6f 6e 2d 6e 65 67 61 | 74 69 76 65 20 72 65 6d |Non-nega|tive rem|
|00000250| 61 69 6e 64 65 72 20 6f | 66 20 4d 2f 4e 20 77 69 |ainder o|f M/N wi|
|00000260| 74 68 20 4e 20 69 6e 73 | 74 65 61 64 20 6f 66 20 |th N ins|tead of |
|00000270| 30 2e 22 5d 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |0."]).(d|efconst |
|00000280| 63 61 6c 65 6e 64 61 72 | 2d 6d 61 79 61 6e 2d 64 |calendar|-mayan-d|
|00000290| 61 79 73 2d 62 65 66 6f | 72 65 2d 61 62 73 6f 6c |ays-befo|re-absol|
|000002a0| 75 74 65 2d 7a 65 72 6f | 20 31 31 33 37 31 34 30 |ute-zero| 1137140|
|000002b0| 20 22 5c 0a 4e 75 6d 62 | 65 72 20 6f 66 20 64 61 | "\.Numb|er of da|
|000002c0| 79 73 20 6f 66 20 74 68 | 65 20 4d 61 79 61 6e 20 |ys of th|e Mayan |
|000002d0| 63 61 6c 65 6e 64 61 72 | 20 65 70 6f 63 68 20 62 |calendar| epoch b|
|000002e0| 65 66 6f 72 65 20 61 62 | 73 6f 6c 75 74 65 20 64 |efore ab|solute d|
|000002f0| 61 79 20 30 2e 0a 41 63 | 63 6f 72 64 69 6e 67 20 |ay 0..Ac|cording |
|00000300| 74 6f 20 74 68 65 20 47 | 6f 6f 64 6d 61 6e 2d 4d |to the G|oodman-M|
|00000310| 61 72 74 69 6e 65 7a 2d | 54 68 6f 6d 70 73 6f 6e |artinez-|Thompson|
|00000320| 20 63 6f 72 72 65 6c 61 | 74 69 6f 6e 2e 20 20 54 | correla|tion.  T|
|00000330| 68 69 73 20 63 6f 72 72 | 65 6c 61 74 69 6f 6e 20 |his corr|elation |
|00000340| 69 73 0a 6e 6f 74 20 75 | 6e 69 76 65 72 73 61 6c |is.not u|niversal|
|00000350| 6c 79 20 61 63 63 65 70 | 74 65 64 2c 20 61 73 20 |ly accep|ted, as |
|00000360| 69 74 20 73 74 69 6c 6c | 20 61 20 73 75 62 6a 65 |it still| a subje|
|00000370| 63 74 20 6f 66 20 61 73 | 74 72 6f 2d 61 72 63 68 |ct of as|tro-arch|
|00000380| 65 6f 6c 6f 67 69 63 61 | 6c 0a 72 65 73 65 61 72 |eologica|l.resear|
|00000390| 63 68 2e 20 20 55 73 69 | 6e 67 20 31 32 33 32 30 |ch.  Usi|ng 12320|
|000003a0| 34 31 20 77 69 6c 6c 20 | 67 69 76 65 20 79 6f 75 |41 will |give you|
|000003b0| 20 53 70 69 6e 64 65 6e | 27 73 20 63 6f 72 72 65 | Spinden|'s corre|
|000003c0| 6c 61 74 69 6f 6e 3b 20 | 75 73 69 6e 67 0a 31 31 |lation; |using.11|
|000003d0| 34 32 38 34 30 20 77 69 | 6c 6c 20 67 69 76 65 20 |42840 wi|ll give |
|000003e0| 79 6f 75 20 48 6f 63 68 | 6c 65 69 74 6e 65 72 27 |you Hoch|leitner'|
|000003f0| 73 20 63 6f 72 72 65 6c | 61 74 69 6f 6e 2e 22 29 |s correl|ation.")|
|00000400| 0a 28 64 65 66 63 6f 6e | 73 74 20 63 61 6c 65 6e |.(defcon|st calen|
|00000410| 64 61 72 2d 6d 61 79 61 | 6e 2d 68 61 61 62 2d 61 |dar-maya|n-haab-a|
|00000420| 74 2d 65 70 6f 63 68 20 | 27 28 38 20 2e 20 31 38 |t-epoch |'(8 . 18|
|00000430| 29 20 22 5c 0a 4d 61 79 | 61 6e 20 68 61 61 62 20 |) "\.May|an haab |
|00000440| 64 61 74 65 20 61 74 20 | 74 68 65 20 65 70 6f 63 |date at |the epoc|
|00000450| 68 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |h.").(by|te-code |
|00000460| 22 c0 11 c2 87 22 20 5b | 5b 22 50 6f 70 22 20 22 |"...." [|["Pop" "|
|00000470| 55 6f 22 20 22 5a 69 70 | 22 20 22 5a 6f 74 7a 22 |Uo" "Zip|" "Zotz"|
|00000480| 20 22 54 7a 65 63 22 20 | 22 58 75 6c 22 20 22 59 | "Tzec" |"Xul" "Y|
|00000490| 61 78 6b 69 6e 22 20 22 | 4d 6f 6c 22 20 22 43 68 |axkin" "|Mol" "Ch|
|000004a0| 65 6e 22 20 22 59 61 78 | 22 20 22 5a 61 63 22 20 |en" "Yax|" "Zac" |
|000004b0| 22 43 65 68 22 20 22 4d | 61 63 22 20 22 4b 61 6e |"Ceh" "M|ac" "Kan|
|000004c0| 6b 69 6e 22 20 22 4d 75 | 61 6e 22 20 22 50 61 78 |kin" "Mu|an" "Pax|
|000004d0| 22 20 22 4b 61 79 61 62 | 22 20 22 43 75 6d 6b 75 |" "Kayab|" "Cumku|
|000004e0| 22 5d 20 63 61 6c 65 6e | 64 61 72 2d 6d 61 79 61 |"] calen|dar-maya|
|000004f0| 6e 2d 68 61 61 62 2d 6d | 6f 6e 74 68 2d 6e 61 6d |n-haab-m|onth-nam|
|00000500| 65 2d 61 72 72 61 79 20 | 6e 69 6c 5d 20 31 29 0a |e-array |nil] 1).|
|00000510| 28 64 65 66 63 6f 6e 73 | 74 20 63 61 6c 65 6e 64 |(defcons|t calend|
|00000520| 61 72 2d 6d 61 79 61 6e | 2d 74 7a 6f 6c 6b 69 6e |ar-mayan|-tzolkin|
|00000530| 2d 61 74 2d 65 70 6f 63 | 68 20 27 28 34 20 2e 20 |-at-epoc|h '(4 . |
|00000540| 32 30 29 20 22 5c 0a 4d | 61 79 61 6e 20 74 7a 6f |20) "\.M|ayan tzo|
|00000550| 6c 6b 69 6e 20 64 61 74 | 65 20 61 74 20 74 68 65 |lkin dat|e at the|
|00000560| 20 65 70 6f 63 68 2e 22 | 29 0a 28 62 79 74 65 2d | epoch."|).(byte-|
|00000570| 63 6f 64 65 20 22 c0 11 | c2 87 22 20 5b 5b 22 49 |code "..|.." [["I|
|00000580| 6d 69 78 22 20 22 49 6b | 22 20 22 41 6b 62 61 6c |mix" "Ik|" "Akbal|
|00000590| 22 20 22 4b 61 6e 22 20 | 22 43 68 69 63 63 68 61 |" "Kan" |"Chiccha|
|000005a0| 6e 22 20 22 43 69 6d 69 | 22 20 22 4d 61 6e 69 6b |n" "Cimi|" "Manik|
|000005b0| 22 20 22 4c 61 6d 61 74 | 22 20 22 4d 75 6c 75 63 |" "Lamat|" "Muluc|
|000005c0| 22 20 22 4f 63 22 20 22 | 43 68 75 65 6e 22 20 22 |" "Oc" "|Chuen" "|
|000005d0| 45 62 22 20 22 42 65 6e | 22 20 22 49 78 22 20 22 |Eb" "Ben|" "Ix" "|
|000005e0| 4d 65 6e 22 20 22 43 69 | 62 22 20 22 43 61 62 61 |Men" "Ci|b" "Caba|
|000005f0| 6e 22 20 22 45 74 7a 6e | 61 62 22 20 22 43 61 75 |n" "Etzn|ab" "Cau|
|00000600| 61 63 22 20 22 41 68 61 | 75 22 5d 20 63 61 6c 65 |ac" "Aha|u"] cale|
|00000610| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 74 7a 6f 6c 6b |ndar-may|an-tzolk|
|00000620| 69 6e 2d 6e 61 6d 65 73 | 2d 61 72 72 61 79 20 6e |in-names|-array n|
|00000630| 69 6c 5d 20 31 29 0a 28 | 66 73 65 74 20 27 63 61 |il] 1).(|fset 'ca|
|00000640| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 6c 6f 6e |lendar-m|ayan-lon|
|00000650| 67 2d 63 6f 75 6e 74 2d | 66 72 6f 6d 2d 61 62 73 |g-count-|from-abs|
|00000660| 6f 6c 75 74 65 20 23 5b | 28 64 61 74 65 29 20 22 |olute #[|(date) "|
|00000670| 08 09 5c 5c 89 1a c3 a5 | 1c 5c 6e c3 a6 89 1d c6 |..\\....|.\n.....|
|00000680| a5 1e 07 0d c6 a6 89 1d | c8 a5 1e 09 0d c8 a6 89 |........|........|
|00000690| 1d ca a5 1e 0b 0d ca a6 | 1e 0c 0c 0e 07 0e 09 0e |........|........|
|000006a0| 0b 0e 0c af 05 2e 09 87 | 22 20 5b 64 61 74 65 20 |........|" [date |
|000006b0| 63 61 6c 65 6e 64 61 72 | 2d 6d 61 79 61 6e 2d 64 |calendar|-mayan-d|
|000006c0| 61 79 73 2d 62 65 66 6f | 72 65 2d 61 62 73 6f 6c |ays-befo|re-absol|
|000006d0| 75 74 65 2d 7a 65 72 6f | 20 6c 6f 6e 67 2d 63 6f |ute-zero| long-co|
|000006e0| 75 6e 74 20 31 34 34 30 | 30 30 20 62 61 6b 74 75 |unt 1440|00 baktu|
|000006f0| 6e 20 72 65 6d 61 69 6e | 64 65 72 20 37 32 30 30 |n remain|der 7200|
|00000700| 20 6b 61 74 75 6e 20 33 | 36 30 20 74 75 6e 20 32 | katun 3|60 tun 2|
|00000710| 30 20 75 69 6e 61 6c 20 | 6b 69 6e 5d 20 36 20 22 |0 uinal |kin] 6 "|
|00000720| 5c 0a 43 6f 6d 70 75 74 | 65 20 74 68 65 20 4d 61 |\.Comput|e the Ma|
|00000730| 79 61 6e 20 6c 6f 6e 67 | 20 63 6f 75 6e 74 20 63 |yan long| count c|
|00000740| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 74 6f 20 |orrespon|ding to |
|00000750| 74 68 65 20 61 62 73 6f | 6c 75 74 65 20 44 41 54 |the abso|lute DAT|
|00000760| 45 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 63 61 6c |E."]).(f|set 'cal|
|00000770| 65 6e 64 61 72 2d 6d 61 | 79 61 6e 2d 6c 6f 6e 67 |endar-ma|yan-long|
|00000780| 2d 63 6f 75 6e 74 2d 74 | 6f 2d 73 74 72 69 6e 67 |-count-t|o-string|
|00000790| 20 23 5b 28 6d 61 79 61 | 6e 2d 6c 6f 6e 67 2d 63 | #[(maya|n-long-c|
|000007a0| 6f 75 6e 74 29 20 22 c0 | c1 c2 0b 42 5c 22 87 22 |ount) ".|...B\"."|
|000007b0| 20 5b 61 70 70 6c 79 20 | 66 6f 72 6d 61 74 20 22 | [apply |format "|
|000007c0| 25 73 2e 25 73 2e 25 73 | 2e 25 73 2e 25 73 22 20 |%s.%s.%s|.%s.%s" |
|000007d0| 6d 61 79 61 6e 2d 6c 6f | 6e 67 2d 63 6f 75 6e 74 |mayan-lo|ng-count|
|000007e0| 5d 20 34 20 22 5c 0a 43 | 6f 6e 76 65 72 74 20 4d |] 4 "\.C|onvert M|
|000007f0| 41 59 41 4e 2d 4c 4f 4e | 47 2d 43 4f 55 4e 54 20 |AYAN-LON|G-COUNT |
|00000800| 69 6e 74 6f 20 74 72 61 | 64 69 74 69 6f 6e 61 6c |into tra|ditional|
|00000810| 20 77 72 69 74 74 65 6e | 20 66 6f 72 6d 2e 22 5d | written| form."]|
|00000820| 29 0a 28 66 73 65 74 20 | 27 63 61 6c 65 6e 64 61 |).(fset |'calenda|
|00000830| 72 2d 73 74 72 69 6e 67 | 2d 74 6f 2d 6d 61 79 61 |r-string|-to-maya|
|00000840| 6e 2d 6c 6f 6e 67 2d 63 | 6f 75 6e 74 20 23 5b 28 |n-long-c|ount #[(|
|00000850| 73 74 72 29 20 22 c0 09 | 47 c2 1b 1c 1d c6 c7 c8 |str) "..|G.......|
|00000860| 8f 88 c9 0d 21 2b 87 22 | 20 5b 6e 69 6c 20 73 74 |....!+."| [nil st|
|00000870| 72 20 30 20 63 63 20 63 | 20 72 6c 63 20 63 6f 6e |r 0 cc c| rlc con|
|00000880| 64 69 74 69 6f 6e 20 28 | 62 79 74 65 2d 63 6f 64 |dition (|byte-cod|
|00000890| 65 20 22 08 09 57 ab a2 | c2 c3 0c 08 23 1d c6 95 |e "..W..|....#...|
|000008a0| 1e 07 c8 1e 09 ca 0c 0d | 0e 07 4f 21 89 16 09 0e |........|..O!....|
|000008b0| 0b 42 16 0b 0e 07 10 2b | aa 59 0e 0b 47 cc 55 ac |.B.....+|.Y..G.U.|
|000008c0| 85 cd ce c8 5c 22 88 c8 | 87 22 20 5b 63 63 20 63 |....\"..|." [cc c|
|000008d0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5b | string-|match "[|
|000008e0| 30 2d 39 5d 2b 22 20 73 | 74 72 20 73 74 61 72 74 |0-9]+" s|tr start|
|000008f0| 20 30 20 65 6e 64 20 6e | 69 6c 20 64 61 74 75 6d | 0 end n|il datum|
|00000900| 20 72 65 61 64 20 72 6c | 63 20 35 20 73 69 67 6e | read rl|c 5 sign|
|00000910| 61 6c 20 69 6e 76 61 6c | 69 64 2d 72 65 61 64 2d |al inval|id-read-|
|00000920| 73 79 6e 74 61 78 5d 20 | 35 29 20 28 28 69 6e 76 |syntax] |5) ((inv|
|00000930| 61 6c 69 64 2d 72 65 61 | 64 2d 73 79 6e 74 61 78 |alid-rea|d-syntax|
|00000940| 29 29 20 72 65 76 65 72 | 73 65 5d 20 33 20 22 5c |)) rever|se] 3 "\|
|00000950| 0a 47 69 76 65 6e 20 53 | 54 52 2c 20 61 20 73 74 |.Given S|TR, a st|
|00000960| 72 69 6e 67 20 6f 66 20 | 66 6f 72 6d 61 74 20 5c |ring of |format \|
|00000970| 22 25 64 2e 25 64 2e 25 | 64 2e 25 64 2e 25 64 5c |"%d.%d.%|d.%d.%d\|
|00000980| 22 2c 20 72 65 74 75 72 | 6e 20 6c 69 73 74 20 6f |", retur|n list o|
|00000990| 66 20 6e 75 6d 73 2e 22 | 5d 29 0a 28 66 73 65 74 |f nums."|]).(fset|
|000009a0| 20 27 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e | 'calend|ar-mayan|
|000009b0| 2d 68 61 61 62 2d 66 72 | 6f 6d 2d 61 62 73 6f 6c |-haab-fr|om-absol|
|000009c0| 75 74 65 20 23 5b 28 64 | 61 74 65 29 20 22 08 09 |ute #[(d|ate) "..|
|000009d0| 5c 5c 89 1a 0b 40 0b 41 | 53 c4 5f 5c 5c 5c 5c c5 |\\...@.A|S._\\\\.|
|000009e0| a6 89 1e 06 c4 a6 1e 07 | 0e 06 c4 a5 54 1e 08 0e |........|....T...|
|000009f0| 07 0e 08 2c 42 87 22 20 | 5b 64 61 74 65 20 63 61 |...,B." |[date ca|
|00000a00| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 64 61 79 |lendar-m|ayan-day|
|00000a10| 73 2d 62 65 66 6f 72 65 | 2d 61 62 73 6f 6c 75 74 |s-before|-absolut|
|00000a20| 65 2d 7a 65 72 6f 20 6c | 6f 6e 67 2d 63 6f 75 6e |e-zero l|ong-coun|
|00000a30| 74 20 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e |t calend|ar-mayan|
|00000a40| 2d 68 61 61 62 2d 61 74 | 2d 65 70 6f 63 68 20 32 |-haab-at|-epoch 2|
|00000a50| 30 20 33 36 35 20 64 61 | 79 2d 6f 66 2d 68 61 61 |0 365 da|y-of-haa|
|00000a60| 62 20 64 61 79 20 6d 6f | 6e 74 68 5d 20 35 20 22 |b day mo|nth] 5 "|
|00000a70| 5c 0a 43 6f 6e 76 65 72 | 74 20 61 62 73 6f 6c 75 |\.Conver|t absolu|
|00000a80| 74 65 20 44 41 54 45 20 | 69 6e 74 6f 20 61 20 4d |te DATE |into a M|
|00000a90| 61 79 61 6e 20 68 61 61 | 62 20 64 61 74 65 20 28 |ayan haa|b date (|
|00000aa0| 61 20 70 61 69 72 29 2e | 22 5d 29 0a 28 66 73 65 |a pair).|"]).(fse|
|00000ab0| 74 20 27 63 61 6c 65 6e | 64 61 72 2d 6d 61 79 61 |t 'calen|dar-maya|
|00000ac0| 6e 2d 68 61 61 62 2d 64 | 69 66 66 65 72 65 6e 63 |n-haab-d|ifferenc|
|00000ad0| 65 20 23 5b 28 64 61 74 | 65 31 20 64 61 74 65 32 |e #[(dat|e1 date2|
|00000ae0| 29 20 22 c0 09 41 5c 6e | 41 5a c3 5f 09 40 5c 6e |) "..A\n|AZ._.@\n|
|00000af0| 40 5a 5c 5c c4 5c 22 87 | 22 20 5b 6d 6f 64 20 64 |@Z\\.\".|" [mod d|
|00000b00| 61 74 65 32 20 64 61 74 | 65 31 20 32 30 20 33 36 |ate2 dat|e1 20 36|
|00000b10| 35 5d 20 34 20 22 5c 0a | 4e 75 6d 62 65 72 20 6f |5] 4 "\.|Number o|
|00000b20| 66 20 64 61 79 73 20 66 | 72 6f 6d 20 4d 61 79 61 |f days f|rom Maya|
|00000b30| 6e 20 68 61 61 62 20 44 | 41 54 45 31 20 74 6f 20 |n haab D|ATE1 to |
|00000b40| 6e 65 78 74 20 6f 63 63 | 75 72 72 65 6e 63 65 20 |next occ|urrence |
|00000b50| 6f 66 20 68 61 61 62 20 | 64 61 74 65 20 44 41 54 |of haab |date DAT|
|00000b60| 45 32 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 63 61 |E2."]).(|fset 'ca|
|00000b70| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 68 61 61 |lendar-m|ayan-haa|
|00000b80| 62 2d 6f 6e 2d 6f 72 2d | 62 65 66 6f 72 65 20 23 |b-on-or-|before #|
|00000b90| 5b 28 68 61 61 62 2d 64 | 61 74 65 20 64 61 74 65 |[(haab-d|ate date|
|00000ba0| 29 20 22 08 89 c1 c2 c3 | 21 0c 5c 22 5a c5 a6 5a |) ".....|!.\"Z..Z|
|00000bb0| 87 22 20 5b 64 61 74 65 | 20 63 61 6c 65 6e 64 61 |." [date| calenda|
|00000bc0| 72 2d 6d 61 79 61 6e 2d | 68 61 61 62 2d 64 69 66 |r-mayan-|haab-dif|
|00000bd0| 66 65 72 65 6e 63 65 20 | 63 61 6c 65 6e 64 61 72 |ference |calendar|
|00000be0| 2d 6d 61 79 61 6e 2d 68 | 61 61 62 2d 66 72 6f 6d |-mayan-h|aab-from|
|00000bf0| 2d 61 62 73 6f 6c 75 74 | 65 20 30 20 68 61 61 62 |-absolut|e 0 haab|
|00000c00| 2d 64 61 74 65 20 33 36 | 35 5d 20 35 20 22 5c 0a |-date 36|5] 5 "\.|
|00000c10| 41 62 73 6f 6c 75 74 65 | 20 64 61 74 65 20 6f 66 |Absolute| date of|
|00000c20| 20 6c 61 74 65 73 74 20 | 48 41 41 42 2d 44 41 54 | latest |HAAB-DAT|
|00000c30| 45 20 6f 6e 20 6f 72 20 | 62 65 66 6f 72 65 20 61 |E on or |before a|
|00000c40| 62 73 6f 6c 75 74 65 20 | 44 41 54 45 2e 22 5d 29 |bsolute |DATE."])|
|00000c50| 0a 28 66 73 65 74 20 27 | 63 61 6c 65 6e 64 61 72 |.(fset '|calendar|
|00000c60| 2d 6e 65 78 74 2d 68 61 | 61 62 2d 64 61 74 65 20 |-next-ha|ab-date |
|00000c70| 23 5b 28 68 61 61 62 2d | 64 61 74 65 20 26 6f 70 |#[(haab-|date &op|
|00000c80| 74 69 6f 6e 61 6c 20 6e | 6f 65 63 68 6f 29 20 22 |tional n|oecho) "|
|00000c90| c0 c1 c2 0b c4 20 89 1d | 89 1d 41 41 40 29 53 1e |..... ..|..AA@)S.|
|00000ca0| 06 0d 1d c7 0d 21 1e 08 | c9 0d 21 1e 5c 6e cb 0d |.....!..|..!.\n..|
|00000cb0| 21 1e 0c 0e 5c 6e cd 0e | 08 53 5f 5c 5c 1e 0e 0e |!...\n..|.S_\\...|
|00000cc0| 08 cf 56 ab 98 0e 0e d0 | d1 0e 08 5f 5c 5c d2 a5 |..V.....|..._\\..|
|00000cd0| 5a 16 0e d3 0e 0c 21 ab | 85 0e 0e 54 16 0e 0e 0e |Z.....!.|...T....|
|00000ce0| 2d 0e 06 d4 5f 0e 06 d1 | a5 0e 06 d5 a5 5b 0e 06 |-..._...|.....[..|
|00000cf0| d6 a5 5c 5c 5c 5c 5c 5c | 5c 5c 2a d4 5c 5c 5c 22 |..\\\\\\|\\*.\\\"|
|00000d00| 21 21 88 0e 17 ae 82 d8 | 20 87 22 20 5b 63 61 6c |!!......| ." [cal|
|00000d10| 65 6e 64 61 72 2d 67 6f | 74 6f 2d 64 61 74 65 20 |endar-go|to-date |
|00000d20| 63 61 6c 65 6e 64 61 72 | 2d 67 72 65 67 6f 72 69 |calendar|-gregori|
|00000d30| 61 6e 2d 66 72 6f 6d 2d | 61 62 73 6f 6c 75 74 65 |an-from-|absolute|
|00000d40| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d | calenda|r-mayan-|
|00000d50| 68 61 61 62 2d 6f 6e 2d | 6f 72 2d 62 65 66 6f 72 |haab-on-|or-befor|
|00000d60| 65 20 68 61 61 62 2d 64 | 61 74 65 20 63 61 6c 65 |e haab-d|ate cale|
|00000d70| 6e 64 61 72 2d 63 75 72 | 73 6f 72 2d 74 6f 2d 64 |ndar-cur|sor-to-d|
|00000d80| 61 74 65 20 64 61 74 65 | 20 70 72 69 6f 72 2d 79 |ate date| prior-y|
|00000d90| 65 61 72 73 20 65 78 74 | 72 61 63 74 2d 63 61 6c |ears ext|ract-cal|
|00000da0| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 20 6d 6f 6e 74 |endar-mo|nth mont|
|00000db0| 68 20 65 78 74 72 61 63 | 74 2d 63 61 6c 65 6e 64 |h extrac|t-calend|
|00000dc0| 61 72 2d 64 61 79 20 64 | 61 79 20 65 78 74 72 61 |ar-day d|ay extra|
|00000dd0| 63 74 2d 63 61 6c 65 6e | 64 61 72 2d 79 65 61 72 |ct-calen|dar-year|
|00000de0| 20 79 65 61 72 20 33 31 | 20 64 61 79 2d 6f 66 2d | year 31| day-of-|
|00000df0| 79 65 61 72 20 32 20 32 | 33 20 34 20 31 30 20 63 |year 2 2|3 4 10 c|
|00000e00| 61 6c 65 6e 64 61 72 2d | 6c 65 61 70 2d 79 65 61 |alendar-|leap-yea|
|00000e10| 72 2d 70 20 33 36 35 20 | 31 30 30 20 34 30 30 20 |r-p 365 |100 400 |
|00000e20| 6e 6f 65 63 68 6f 20 63 | 61 6c 65 6e 64 61 72 2d |noecho c|alendar-|
|00000e30| 70 72 69 6e 74 2d 6d 61 | 79 61 6e 2d 64 61 74 65 |print-ma|yan-date|
|00000e40| 5d 20 31 31 20 22 5c 0a | 4d 6f 76 65 20 63 75 72 |] 11 "\.|Move cur|
|00000e50| 73 6f 72 20 74 6f 20 6e | 65 78 74 20 69 6e 73 74 |sor to n|ext inst|
|00000e60| 61 6e 63 65 20 6f 66 20 | 4d 61 79 61 6e 20 48 41 |ance of |Mayan HA|
|00000e70| 41 42 2d 44 41 54 45 2e | 20 0a 45 63 68 6f 20 4d |AB-DATE.| .Echo M|
|00000e80| 61 79 61 6e 20 64 61 74 | 65 20 69 66 20 4e 4f 45 |ayan dat|e if NOE|
|00000e90| 43 48 4f 20 69 73 20 74 | 2e 22 20 28 62 79 74 65 |CHO is t|." (byte|
|00000ea0| 2d 63 6f 64 65 20 22 c0 | 20 43 87 22 20 5b 63 61 |-code ".| C." [ca|
|00000eb0| 6c 65 6e 64 61 72 2d 72 | 65 61 64 2d 6d 61 79 61 |lendar-r|ead-maya|
|00000ec0| 6e 2d 68 61 61 62 2d 64 | 61 74 65 5d 20 31 29 5d |n-haab-d|ate] 1)]|
|00000ed0| 29 0a 28 66 73 65 74 20 | 27 63 61 6c 65 6e 64 61 |).(fset |'calenda|
|00000ee0| 72 2d 70 72 65 76 69 6f | 75 73 2d 68 61 61 62 2d |r-previo|us-haab-|
|00000ef0| 64 61 74 65 20 23 5b 28 | 68 61 61 62 2d 64 61 74 |date #[(|haab-dat|
|00000f00| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 65 63 |e &optio|nal noec|
|00000f10| 68 6f 29 20 22 c0 c1 c2 | 0b c4 20 1d c6 0d 21 53 |ho) "...|.. ...!S|
|00000f20| 1e 07 c8 0d 21 c9 0e 07 | 5f 0e 07 ca a5 0e 07 cb |....!...|_.......|
|00000f30| a5 5b 0e 07 cc a5 5c 5c | 5c 5c 5c 5c 5c 5c 2a 53 |.[....\\|\\\\\\*S|
|00000f40| 5c 22 21 21 88 0e 0d ae | 82 ce 20 87 22 20 5b 63 |\"!!....|.. ." [c|
|00000f50| 61 6c 65 6e 64 61 72 2d | 67 6f 74 6f 2d 64 61 74 |alendar-|goto-dat|
|00000f60| 65 20 63 61 6c 65 6e 64 | 61 72 2d 67 72 65 67 6f |e calend|ar-grego|
|00000f70| 72 69 61 6e 2d 66 72 6f | 6d 2d 61 62 73 6f 6c 75 |rian-fro|m-absolu|
|00000f80| 74 65 20 63 61 6c 65 6e | 64 61 72 2d 6d 61 79 61 |te calen|dar-maya|
|00000f90| 6e 2d 68 61 61 62 2d 6f | 6e 2d 6f 72 2d 62 65 66 |n-haab-o|n-or-bef|
|00000fa0| 6f 72 65 20 68 61 61 62 | 2d 64 61 74 65 20 63 61 |ore haab|-date ca|
|00000fb0| 6c 65 6e 64 61 72 2d 63 | 75 72 73 6f 72 2d 74 6f |lendar-c|ursor-to|
|00000fc0| 2d 64 61 74 65 20 64 61 | 74 65 20 65 78 74 72 61 |-date da|te extra|
|00000fd0| 63 74 2d 63 61 6c 65 6e | 64 61 72 2d 79 65 61 72 |ct-calen|dar-year|
|00000fe0| 20 70 72 69 6f 72 2d 79 | 65 61 72 73 20 63 61 6c | prior-y|ears cal|
|00000ff0| 65 6e 64 61 72 2d 64 61 | 79 2d 6e 75 6d 62 65 72 |endar-da|y-number|
|00001000| 20 33 36 35 20 34 20 31 | 30 30 20 34 30 30 20 6e | 365 4 1|00 400 n|
|00001010| 6f 65 63 68 6f 20 63 61 | 6c 65 6e 64 61 72 2d 70 |oecho ca|lendar-p|
|00001020| 72 69 6e 74 2d 6d 61 79 | 61 6e 2d 64 61 74 65 5d |rint-may|an-date]|
|00001030| 20 31 30 20 22 5c 0a 4d | 6f 76 65 20 63 75 72 73 | 10 "\.M|ove curs|
|00001040| 6f 72 20 74 6f 20 70 72 | 65 76 69 6f 75 73 20 69 |or to pr|evious i|
|00001050| 6e 73 74 61 6e 63 65 20 | 6f 66 20 4d 61 79 61 6e |nstance |of Mayan|
|00001060| 20 48 41 41 42 2d 44 41 | 54 45 2e 20 0a 45 63 68 | HAAB-DA|TE. .Ech|
|00001070| 6f 20 4d 61 79 61 6e 20 | 64 61 74 65 20 69 66 20 |o Mayan |date if |
|00001080| 4e 4f 45 43 48 4f 20 69 | 73 20 74 2e 22 20 28 62 |NOECHO i|s t." (b|
|00001090| 79 74 65 2d 63 6f 64 65 | 20 22 c0 20 43 87 22 20 |yte-code| ". C." |
|000010a0| 5b 63 61 6c 65 6e 64 61 | 72 2d 72 65 61 64 2d 6d |[calenda|r-read-m|
|000010b0| 61 79 61 6e 2d 68 61 61 | 62 2d 64 61 74 65 5d 20 |ayan-haa|b-date] |
|000010c0| 31 29 5d 29 0a 28 66 73 | 65 74 20 27 63 61 6c 65 |1)]).(fs|et 'cale|
|000010d0| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 68 61 61 62 2d |ndar-may|an-haab-|
|000010e0| 74 6f 2d 73 74 72 69 6e | 67 20 23 5b 28 68 61 61 |to-strin|g #[(haa|
|000010f0| 62 29 20 22 08 41 08 40 | 19 89 1a c3 55 ab 86 c4 |b) ".A.@|....U...|
|00001100| c5 09 5c 22 aa 89 c4 c6 | 09 0e 07 5c 6e 53 48 23 |..\"....|...\nSH#|
|00001110| 2a 87 22 20 5b 68 61 61 | 62 20 64 61 79 20 6d 6f |*." [haa|b day mo|
|00001120| 6e 74 68 20 31 39 20 66 | 6f 72 6d 61 74 20 22 25 |nth 19 f|ormat "%|
|00001130| 64 20 55 61 79 65 62 22 | 20 22 25 64 20 25 73 22 |d Uayeb"| "%d %s"|
|00001140| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d | calenda|r-mayan-|
|00001150| 68 61 61 62 2d 6d 6f 6e | 74 68 2d 6e 61 6d 65 2d |haab-mon|th-name-|
|00001160| 61 72 72 61 79 5d 20 36 | 20 22 5c 0a 43 6f 6e 76 |array] 6| "\.Conv|
|00001170| 65 72 74 20 4d 61 79 61 | 6e 20 68 61 61 62 20 64 |ert Maya|n haab d|
|00001180| 61 74 65 20 28 61 20 70 | 61 69 72 29 20 69 6e 74 |ate (a p|air) int|
|00001190| 6f 20 69 74 73 20 74 72 | 61 64 69 74 69 6f 6e 61 |o its tr|aditiona|
|000011a0| 6c 20 77 72 69 74 74 65 | 6e 20 66 6f 72 6d 2e 22 |l writte|n form."|
|000011b0| 5d 29 0a 28 66 73 65 74 | 20 27 63 61 6c 65 6e 64 |]).(fset| 'calend|
|000011c0| 61 72 2d 6d 61 79 61 6e | 2d 74 7a 6f 6c 6b 69 6e |ar-mayan|-tzolkin|
|000011d0| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 23 |-from-ab|solute #|
|000011e0| 5b 28 64 61 74 65 29 20 | 22 08 09 5c 5c 1a c3 5c |[(date) |"..\\..\|
|000011f0| 6e 0c 40 5c 5c c5 5c 22 | 1e 06 c3 5c 6e 0c 41 5c |n.@\\.\"|...\n.A\|
|00001200| 5c c7 5c 22 1e 08 0e 06 | 0e 08 2b 42 87 22 20 5b |\.\"....|..+B." [|
|00001210| 64 61 74 65 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |date cal|endar-ma|
|00001220| 79 61 6e 2d 64 61 79 73 | 2d 62 65 66 6f 72 65 2d |yan-days|-before-|
|00001230| 61 62 73 6f 6c 75 74 65 | 2d 7a 65 72 6f 20 6c 6f |absolute|-zero lo|
|00001240| 6e 67 2d 63 6f 75 6e 74 | 20 6d 61 79 61 6e 2d 61 |ng-count| mayan-a|
|00001250| 64 6a 75 73 74 65 64 2d | 6d 6f 64 20 63 61 6c 65 |djusted-|mod cale|
|00001260| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 74 7a 6f 6c 6b |ndar-may|an-tzolk|
|00001270| 69 6e 2d 61 74 2d 65 70 | 6f 63 68 20 31 33 20 64 |in-at-ep|och 13 d|
|00001280| 61 79 20 32 30 20 6e 61 | 6d 65 5d 20 33 20 22 5c |ay 20 na|me] 3 "\|
|00001290| 0a 43 6f 6e 76 65 72 74 | 20 61 62 73 6f 6c 75 74 |.Convert| absolut|
|000012a0| 65 20 44 41 54 45 20 69 | 6e 74 6f 20 61 20 4d 61 |e DATE i|nto a Ma|
|000012b0| 79 61 6e 20 74 7a 6f 6c | 6b 69 6e 20 64 61 74 65 |yan tzol|kin date|
|000012c0| 20 28 61 20 70 61 69 72 | 29 2e 22 5d 29 0a 28 66 | (a pair|)."]).(f|
|000012d0| 73 65 74 20 27 63 61 6c | 65 6e 64 61 72 2d 6d 61 |set 'cal|endar-ma|
|000012e0| 79 61 6e 2d 74 7a 6f 6c | 6b 69 6e 2d 64 69 66 66 |yan-tzol|kin-diff|
|000012f0| 65 72 65 6e 63 65 20 23 | 5b 28 64 61 74 65 31 20 |erence #|[(date1 |
|00001300| 64 61 74 65 32 29 20 22 | 08 40 09 40 5a 08 41 09 |date2) "|.@.@Z.A.|
|00001310| 41 5a 1a 1b c4 0b c4 0b | 5c 6e 5a c5 5f c6 5c 22 |AZ......|\nZ._.\"|
|00001320| c7 5f 5c 5c c8 5c 22 2a | 87 22 20 5b 64 61 74 65 |._\\.\"*|." [date|
|00001330| 32 20 64 61 74 65 31 20 | 6e 61 6d 65 2d 64 69 66 |2 date1 |name-dif|
|00001340| 66 65 72 65 6e 63 65 20 | 6e 75 6d 62 65 72 2d 64 |ference |number-d|
|00001350| 69 66 66 65 72 65 6e 63 | 65 20 6d 6f 64 20 33 20 |ifferenc|e mod 3 |
|00001360| 32 30 20 31 33 20 32 36 | 30 5d 20 35 20 22 5c 0a |20 13 26|0] 5 "\.|
|00001370| 4e 75 6d 62 65 72 20 6f | 66 20 64 61 79 73 20 66 |Number o|f days f|
|00001380| 72 6f 6d 20 4d 61 79 61 | 6e 20 74 7a 6f 6c 6b 69 |rom Maya|n tzolki|
|00001390| 6e 20 44 41 54 45 31 20 | 74 6f 20 6e 65 78 74 20 |n DATE1 |to next |
|000013a0| 6f 63 63 75 72 72 65 6e | 63 65 20 6f 66 20 74 7a |occurren|ce of tz|
|000013b0| 6f 6c 6b 69 6e 20 44 41 | 54 45 32 2e 22 5d 29 0a |olkin DA|TE2."]).|
|000013c0| 28 66 73 65 74 20 27 63 | 61 6c 65 6e 64 61 72 2d |(fset 'c|alendar-|
|000013d0| 6d 61 79 61 6e 2d 74 7a | 6f 6c 6b 69 6e 2d 6f 6e |mayan-tz|olkin-on|
|000013e0| 2d 6f 72 2d 62 65 66 6f | 72 65 20 23 5b 28 74 7a |-or-befo|re #[(tz|
|000013f0| 6f 6c 6b 69 6e 2d 64 61 | 74 65 20 64 61 74 65 29 |olkin-da|te date)|
|00001400| 20 22 08 89 c1 c2 c3 21 | 0c 5c 22 5a c5 a6 5a 87 | ".....!|.\"Z..Z.|
|00001410| 22 20 5b 64 61 74 65 20 | 63 61 6c 65 6e 64 61 72 |" [date |calendar|
|00001420| 2d 6d 61 79 61 6e 2d 74 | 7a 6f 6c 6b 69 6e 2d 64 |-mayan-t|zolkin-d|
|00001430| 69 66 66 65 72 65 6e 63 | 65 20 63 61 6c 65 6e 64 |ifferenc|e calend|
|00001440| 61 72 2d 6d 61 79 61 6e | 2d 74 7a 6f 6c 6b 69 6e |ar-mayan|-tzolkin|
|00001450| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 30 |-from-ab|solute 0|
|00001460| 20 74 7a 6f 6c 6b 69 6e | 2d 64 61 74 65 20 32 36 | tzolkin|-date 26|
|00001470| 30 5d 20 35 20 22 5c 0a | 41 62 73 6f 6c 75 74 65 |0] 5 "\.|Absolute|
|00001480| 20 64 61 74 65 20 6f 66 | 20 6c 61 74 65 73 74 20 | date of| latest |
|00001490| 54 5a 4f 4c 4b 49 4e 2d | 44 41 54 45 20 6f 6e 20 |TZOLKIN-|DATE on |
|000014a0| 6f 72 20 62 65 66 6f 72 | 65 20 61 62 73 6f 6c 75 |or befor|e absolu|
|000014b0| 74 65 20 44 41 54 45 2e | 22 5d 29 0a 28 66 73 65 |te DATE.|"]).(fse|
|000014c0| 74 20 27 63 61 6c 65 6e | 64 61 72 2d 6e 65 78 74 |t 'calen|dar-next|
|000014d0| 2d 74 7a 6f 6c 6b 69 6e | 2d 64 61 74 65 20 23 5b |-tzolkin|-date #[|
|000014e0| 28 74 7a 6f 6c 6b 69 6e | 2d 64 61 74 65 20 26 6f |(tzolkin|-date &o|
|000014f0| 70 74 69 6f 6e 61 6c 20 | 6e 6f 65 63 68 6f 29 20 |ptional |noecho) |
|00001500| 22 c0 c1 c2 0b c4 20 89 | 1d 89 1d 41 41 40 29 53 |"..... .|...AA@)S|
|00001510| 1e 06 0d 1d c7 0d 21 1e | 08 c9 0d 21 1e 5c 6e cb |......!.|...!.\n.|
|00001520| 0d 21 1e 0c 0e 5c 6e cd | 0e 08 53 5f 5c 5c 1e 0e |.!...\n.|..S_\\..|
|00001530| 0e 08 cf 56 ab 98 0e 0e | d0 d1 0e 08 5f 5c 5c d2 |...V....|...._\\.|
|00001540| a5 5a 16 0e d3 0e 0c 21 | ab 85 0e 0e 54 16 0e 0e |.Z.....!|....T...|
|00001550| 0e 2d 0e 06 d4 5f 0e 06 | d1 a5 0e 06 d5 a5 5b 0e |.-..._..|......[.|
|00001560| 06 d6 a5 5c 5c 5c 5c 5c | 5c 5c 5c 2a d7 5c 5c 5c |...\\\\\|\\\*.\\\|
|00001570| 22 21 21 88 0e 18 ae 82 | d9 20 87 22 20 5b 63 61 |"!!.....|. ." [ca|
|00001580| 6c 65 6e 64 61 72 2d 67 | 6f 74 6f 2d 64 61 74 65 |lendar-g|oto-date|
|00001590| 20 63 61 6c 65 6e 64 61 | 72 2d 67 72 65 67 6f 72 | calenda|r-gregor|
|000015a0| 69 61 6e 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |ian-from|-absolut|
|000015b0| 65 20 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e |e calend|ar-mayan|
|000015c0| 2d 74 7a 6f 6c 6b 69 6e | 2d 6f 6e 2d 6f 72 2d 62 |-tzolkin|-on-or-b|
|000015d0| 65 66 6f 72 65 20 74 7a | 6f 6c 6b 69 6e 2d 64 61 |efore tz|olkin-da|
|000015e0| 74 65 20 63 61 6c 65 6e | 64 61 72 2d 63 75 72 73 |te calen|dar-curs|
|000015f0| 6f 72 2d 74 6f 2d 64 61 | 74 65 20 64 61 74 65 20 |or-to-da|te date |
|00001600| 70 72 69 6f 72 2d 79 65 | 61 72 73 20 65 78 74 72 |prior-ye|ars extr|
|00001610| 61 63 74 2d 63 61 6c 65 | 6e 64 61 72 2d 6d 6f 6e |act-cale|ndar-mon|
|00001620| 74 68 20 6d 6f 6e 74 68 | 20 65 78 74 72 61 63 74 |th month| extract|
|00001630| 2d 63 61 6c 65 6e 64 61 | 72 2d 64 61 79 20 64 61 |-calenda|r-day da|
|00001640| 79 20 65 78 74 72 61 63 | 74 2d 63 61 6c 65 6e 64 |y extrac|t-calend|
|00001650| 61 72 2d 79 65 61 72 20 | 79 65 61 72 20 33 31 20 |ar-year |year 31 |
|00001660| 64 61 79 2d 6f 66 2d 79 | 65 61 72 20 32 20 32 33 |day-of-y|ear 2 23|
|00001670| 20 34 20 31 30 20 63 61 | 6c 65 6e 64 61 72 2d 6c | 4 10 ca|lendar-l|
|00001680| 65 61 70 2d 79 65 61 72 | 2d 70 20 33 36 35 20 31 |eap-year|-p 365 1|
|00001690| 30 30 20 34 30 30 20 32 | 36 30 20 6e 6f 65 63 68 |00 400 2|60 noech|
|000016a0| 6f 20 63 61 6c 65 6e 64 | 61 72 2d 70 72 69 6e 74 |o calend|ar-print|
|000016b0| 2d 6d 61 79 61 6e 2d 64 | 61 74 65 5d 20 31 31 20 |-mayan-d|ate] 11 |
|000016c0| 22 5c 0a 4d 6f 76 65 20 | 63 75 72 73 6f 72 20 74 |"\.Move |cursor t|
|000016d0| 6f 20 6e 65 78 74 20 69 | 6e 73 74 61 6e 63 65 20 |o next i|nstance |
|000016e0| 6f 66 20 4d 61 79 61 6e | 20 54 5a 4f 4c 4b 49 4e |of Mayan| TZOLKIN|
|000016f0| 2d 44 41 54 45 2e 20 0a | 45 63 68 6f 20 4d 61 79 |-DATE. .|Echo May|
|00001700| 61 6e 20 64 61 74 65 20 | 69 66 20 4e 4f 45 43 48 |an date |if NOECH|
|00001710| 4f 20 69 73 20 74 2e 22 | 20 28 62 79 74 65 2d 63 |O is t."| (byte-c|
|00001720| 6f 64 65 20 22 c0 20 43 | 87 22 20 5b 63 61 6c 65 |ode ". C|." [cale|
|00001730| 6e 64 61 72 2d 72 65 61 | 64 2d 6d 61 79 61 6e 2d |ndar-rea|d-mayan-|
|00001740| 74 7a 6f 6c 6b 69 6e 2d | 64 61 74 65 5d 20 31 29 |tzolkin-|date] 1)|
|00001750| 5d 29 0a 28 66 73 65 74 | 20 27 63 61 6c 65 6e 64 |]).(fset| 'calend|
|00001760| 61 72 2d 70 72 65 76 69 | 6f 75 73 2d 74 7a 6f 6c |ar-previ|ous-tzol|
|00001770| 6b 69 6e 2d 64 61 74 65 | 20 23 5b 28 74 7a 6f 6c |kin-date| #[(tzol|
|00001780| 6b 69 6e 2d 64 61 74 65 | 20 26 6f 70 74 69 6f 6e |kin-date| &option|
|00001790| 61 6c 20 6e 6f 65 63 68 | 6f 29 20 22 c0 c1 c2 0b |al noech|o) "....|
|000017a0| c4 20 1d c6 0d 21 53 1e | 07 c8 0d 21 c9 0e 07 5f |. ...!S.|...!..._|
|000017b0| 0e 07 ca a5 0e 07 cb a5 | 5b 0e 07 cc a5 5c 5c 5c |........|[....\\\|
|000017c0| 5c 5c 5c 5c 5c 2a 53 5c | 22 21 21 88 0e 0d ae 82 |\\\\\*S\|"!!.....|
|000017d0| ce 20 87 22 20 5b 63 61 | 6c 65 6e 64 61 72 2d 67 |. ." [ca|lendar-g|
|000017e0| 6f 74 6f 2d 64 61 74 65 | 20 63 61 6c 65 6e 64 61 |oto-date| calenda|
|000017f0| 72 2d 67 72 65 67 6f 72 | 69 61 6e 2d 66 72 6f 6d |r-gregor|ian-from|
|00001800| 2d 61 62 73 6f 6c 75 74 | 65 20 63 61 6c 65 6e 64 |-absolut|e calend|
|00001810| 61 72 2d 6d 61 79 61 6e | 2d 74 7a 6f 6c 6b 69 6e |ar-mayan|-tzolkin|
|00001820| 2d 6f 6e 2d 6f 72 2d 62 | 65 66 6f 72 65 20 74 7a |-on-or-b|efore tz|
|00001830| 6f 6c 6b 69 6e 2d 64 61 | 74 65 20 63 61 6c 65 6e |olkin-da|te calen|
|00001840| 64 61 72 2d 63 75 72 73 | 6f 72 2d 74 6f 2d 64 61 |dar-curs|or-to-da|
|00001850| 74 65 20 64 61 74 65 20 | 65 78 74 72 61 63 74 2d |te date |extract-|
|00001860| 63 61 6c 65 6e 64 61 72 | 2d 79 65 61 72 20 70 72 |calendar|-year pr|
|00001870| 69 6f 72 2d 79 65 61 72 | 73 20 63 61 6c 65 6e 64 |ior-year|s calend|
|00001880| 61 72 2d 64 61 79 2d 6e | 75 6d 62 65 72 20 33 36 |ar-day-n|umber 36|
|00001890| 35 20 34 20 31 30 30 20 | 34 30 30 20 6e 6f 65 63 |5 4 100 |400 noec|
|000018a0| 68 6f 20 63 61 6c 65 6e | 64 61 72 2d 70 72 69 6e |ho calen|dar-prin|
|000018b0| 74 2d 6d 61 79 61 6e 2d | 64 61 74 65 5d 20 31 30 |t-mayan-|date] 10|
|000018c0| 20 22 5c 0a 4d 6f 76 65 | 20 63 75 72 73 6f 72 20 | "\.Move| cursor |
|000018d0| 74 6f 20 70 72 65 76 69 | 6f 75 73 20 69 6e 73 74 |to previ|ous inst|
|000018e0| 61 6e 63 65 20 6f 66 20 | 4d 61 79 61 6e 20 54 5a |ance of |Mayan TZ|
|000018f0| 4f 4c 4b 49 4e 2d 44 41 | 54 45 2e 20 0a 45 63 68 |OLKIN-DA|TE. .Ech|
|00001900| 6f 20 4d 61 79 61 6e 20 | 64 61 74 65 20 69 66 20 |o Mayan |date if |
|00001910| 4e 4f 45 43 48 4f 20 69 | 73 20 74 2e 22 20 28 62 |NOECHO i|s t." (b|
|00001920| 79 74 65 2d 63 6f 64 65 | 20 22 c0 20 43 87 22 20 |yte-code| ". C." |
|00001930| 5b 63 61 6c 65 6e 64 61 | 72 2d 72 65 61 64 2d 6d |[calenda|r-read-m|
|00001940| 61 79 61 6e 2d 74 7a 6f | 6c 6b 69 6e 2d 64 61 74 |ayan-tzo|lkin-dat|
|00001950| 65 5d 20 31 29 5d 29 0a | 28 66 73 65 74 20 27 63 |e] 1)]).|(fset 'c|
|00001960| 61 6c 65 6e 64 61 72 2d | 6d 61 79 61 6e 2d 74 7a |alendar-|mayan-tz|
|00001970| 6f 6c 6b 69 6e 2d 74 6f | 2d 73 74 72 69 6e 67 20 |olkin-to|-string |
|00001980| 23 5b 28 74 7a 6f 6c 6b | 69 6e 29 20 22 c0 c1 5c |#[(tzolk|in) "..\|
|00001990| 6e 40 0b 5c 6e 41 53 48 | 23 87 22 20 5b 66 6f 72 |n@.\nASH|#." [for|
|000019a0| 6d 61 74 20 22 25 64 20 | 25 73 22 20 74 7a 6f 6c |mat "%d |%s" tzol|
|000019b0| 6b 69 6e 20 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |kin cale|ndar-may|
|000019c0| 61 6e 2d 74 7a 6f 6c 6b | 69 6e 2d 6e 61 6d 65 73 |an-tzolk|in-names|
|000019d0| 2d 61 72 72 61 79 5d 20 | 35 20 22 5c 0a 43 6f 6e |-array] |5 "\.Con|
|000019e0| 76 65 72 74 20 4d 61 79 | 61 6e 20 74 7a 6f 6c 6b |vert May|an tzolk|
|000019f0| 69 6e 20 64 61 74 65 20 | 28 61 20 70 61 69 72 29 |in date |(a pair)|
|00001a00| 20 69 6e 74 6f 20 69 74 | 73 20 74 72 61 64 69 74 | into it|s tradit|
|00001a10| 69 6f 6e 61 6c 20 77 72 | 69 74 74 65 6e 20 66 6f |ional wr|itten fo|
|00001a20| 72 6d 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 63 61 |rm."]).(|fset 'ca|
|00001a30| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 74 7a 6f |lendar-m|ayan-tzo|
|00001a40| 6c 6b 69 6e 2d 68 61 61 | 62 2d 6f 6e 2d 6f 72 2d |lkin-haa|b-on-or-|
|00001a50| 62 65 66 6f 72 65 20 23 | 5b 28 74 7a 6f 6c 6b 69 |before #|[(tzolki|
|00001a60| 6e 2d 64 61 74 65 20 68 | 61 61 62 2d 64 61 74 65 |n-date h|aab-date|
|00001a70| 20 64 61 74 65 29 20 22 | c0 c1 c2 21 0b 5c 22 1c | date) "|...!.\".|
|00001a80| c5 c6 c2 21 0e 07 5c 22 | 89 1e 08 0c 5a 89 1e 09 |...!..\"|....Z...|
|00001a90| ca a6 c2 55 ad 8f 0e 0b | cc 0e 0b 0c 0e 09 cd 5f |...U....|......._|
|00001aa0| 5c 5c 5a ce 5c 22 5a 2b | 87 22 20 5b 63 61 6c 65 |\\Z.\"Z+|." [cale|
|00001ab0| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 68 61 61 62 2d |ndar-may|an-haab-|
|00001ac0| 64 69 66 66 65 72 65 6e | 63 65 20 63 61 6c 65 6e |differen|ce calen|
|00001ad0| 64 61 72 2d 6d 61 79 61 | 6e 2d 68 61 61 62 2d 66 |dar-maya|n-haab-f|
|00001ae0| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 20 30 20 68 |rom-abso|lute 0 h|
|00001af0| 61 61 62 2d 64 61 74 65 | 20 68 61 61 62 2d 64 69 |aab-date| haab-di|
|00001b00| 66 66 65 72 65 6e 63 65 | 20 63 61 6c 65 6e 64 61 |fference| calenda|
|00001b10| 72 2d 6d 61 79 61 6e 2d | 74 7a 6f 6c 6b 69 6e 2d |r-mayan-|tzolkin-|
|00001b20| 64 69 66 66 65 72 65 6e | 63 65 20 63 61 6c 65 6e |differen|ce calen|
|00001b30| 64 61 72 2d 6d 61 79 61 | 6e 2d 74 7a 6f 6c 6b 69 |dar-maya|n-tzolki|
|00001b40| 6e 2d 66 72 6f 6d 2d 61 | 62 73 6f 6c 75 74 65 20 |n-from-a|bsolute |
|00001b50| 74 7a 6f 6c 6b 69 6e 2d | 64 61 74 65 20 74 7a 6f |tzolkin-|date tzo|
|00001b60| 6c 6b 69 6e 2d 64 69 66 | 66 65 72 65 6e 63 65 20 |lkin-dif|ference |
|00001b70| 64 69 66 66 65 72 65 6e | 63 65 20 35 20 64 61 74 |differen|ce 5 dat|
|00001b80| 65 20 6d 6f 64 20 33 36 | 35 20 31 38 39 38 30 5d |e mod 36|5 18980]|
|00001b90| 20 37 20 22 5c 0a 41 62 | 73 6f 6c 75 74 65 20 64 | 7 "\.Ab|solute d|
|00001ba0| 61 74 65 20 74 68 61 74 | 20 69 73 20 4d 61 79 61 |ate that| is Maya|
|00001bb0| 6e 20 54 5a 4f 4c 4b 49 | 4e 2d 44 41 54 45 20 61 |n TZOLKI|N-DATE a|
|00001bc0| 6e 64 20 48 41 41 42 2d | 44 41 54 45 2e 0a 4c 61 |nd HAAB-|DATE..La|
|00001bd0| 74 65 73 74 20 73 75 63 | 68 20 64 61 74 65 20 6f |test suc|h date o|
|00001be0| 6e 20 6f 72 20 62 65 66 | 6f 72 65 20 44 41 54 45 |n or bef|ore DATE|
|00001bf0| 2e 0a 52 65 74 75 72 6e | 73 20 6e 69 6c 20 69 66 |..Return|s nil if|
|00001c00| 20 73 75 63 68 20 61 20 | 74 7a 6f 6c 6b 69 6e 2d | such a |tzolkin-|
|00001c10| 68 61 61 62 20 63 6f 6d | 62 69 6e 61 74 69 6f 6e |haab com|bination|
|00001c20| 20 69 73 20 69 6d 70 6f | 73 73 69 62 6c 65 2e 22 | is impo|ssible."|
|00001c30| 5d 29 0a 28 66 73 65 74 | 20 27 63 61 6c 65 6e 64 |]).(fset| 'calend|
|00001c40| 61 72 2d 72 65 61 64 2d | 6d 61 79 61 6e 2d 68 61 |ar-read-|mayan-ha|
|00001c50| 61 62 2d 64 61 74 65 20 | 23 5b 6e 69 6c 20 22 c0 |ab-date |#[nil ".|
|00001c60| 19 c2 c3 c4 5c 22 1d c6 | 0e 07 0d c8 57 ad 81 c9 |....\"..|....W...|
|00001c70| 5c 22 1e 5c 6e cb cc cd | ce cf d0 0e 5c 6e 5c 22 |\".\n...|....\n\"|
|00001c80| d1 c0 24 21 d2 0e 5c 6e | d3 cc 23 5c 22 41 1e 14 |..$!..\n|..#\"A..|
|00001c90| 0d 0e 14 2c 42 87 22 20 | 5b 74 20 63 6f 6d 70 6c |...,B." |[t compl|
|00001ca0| 65 74 69 6f 6e 2d 69 67 | 6e 6f 72 65 2d 63 61 73 |etion-ig|nore-cas|
|00001cb0| 65 20 63 61 6c 65 6e 64 | 61 72 2d 72 65 61 64 20 |e calend|ar-read |
|00001cc0| 22 48 61 61 62 20 6b 69 | 6e 20 28 30 2d 31 39 29 |"Haab ki|n (0-19)|
|00001cd0| 3a 20 22 20 28 6c 61 6d | 62 64 61 20 28 78 29 20 |: " (lam|bda (x) |
|00001ce0| 28 61 6e 64 20 28 3e 3d | 20 78 20 30 29 20 28 3c |(and (>=| x 0) (<|
|00001cf0| 20 78 20 32 30 29 29 29 | 20 68 61 61 62 2d 64 61 | x 20)))| haab-da|
|00001d00| 79 20 61 70 70 65 6e 64 | 20 63 61 6c 65 6e 64 61 |y append| calenda|
|00001d10| 72 2d 6d 61 79 61 6e 2d | 68 61 61 62 2d 6d 6f 6e |r-mayan-|haab-mon|
|00001d20| 74 68 2d 6e 61 6d 65 2d | 61 72 72 61 79 20 35 20 |th-name-|array 5 |
|00001d30| 28 22 55 61 79 65 62 22 | 29 20 68 61 61 62 2d 6d |("Uayeb"|) haab-m|
|00001d40| 6f 6e 74 68 2d 6c 69 73 | 74 20 61 73 73 6f 63 20 |onth-lis|t assoc |
|00001d50| 63 61 70 69 74 61 6c 69 | 7a 65 20 63 6f 6d 70 6c |capitali|ze compl|
|00001d60| 65 74 69 6e 67 2d 72 65 | 61 64 20 22 48 61 61 62 |eting-re|ad "Haab|
|00001d70| 20 75 69 6e 61 6c 3a 20 | 22 20 6d 61 70 63 61 72 | uinal: |" mapcar|
|00001d80| 20 6c 69 73 74 20 6e 69 | 6c 20 63 61 6c 65 6e 64 | list ni|l calend|
|00001d90| 61 72 2d 6d 61 6b 65 2d | 61 6c 69 73 74 20 31 20 |ar-make-|alist 1 |
|00001da0| 68 61 61 62 2d 6d 6f 6e | 74 68 5d 20 37 20 22 5c |haab-mon|th] 7 "\|
|00001db0| 0a 50 72 6f 6d 70 74 20 | 66 6f 72 20 61 20 4d 61 |.Prompt |for a Ma|
|00001dc0| 79 61 6e 20 68 61 61 62 | 20 64 61 74 65 22 5d 29 |yan haab| date"])|
|00001dd0| 0a 28 66 73 65 74 20 27 | 63 61 6c 65 6e 64 61 72 |.(fset '|calendar|
|00001de0| 2d 72 65 61 64 2d 6d 61 | 79 61 6e 2d 74 7a 6f 6c |-read-ma|yan-tzol|
|00001df0| 6b 69 6e 2d 64 61 74 65 | 20 23 5b 6e 69 6c 20 22 |kin-date| #[nil "|
|00001e00| c0 19 c2 c3 c4 5c 22 1d | c6 0e 07 c8 5c 22 1e 09 |.....\".|....\"..|
|00001e10| ca cb cc cd ce cf 0e 09 | 5c 22 c8 c0 24 21 d0 0e |........|\"..$!..|
|00001e20| 09 d1 cb 23 5c 22 41 1e | 12 0d 0e 12 2c 42 87 22 |...#\"A.|....,B."|
|00001e30| 20 5b 74 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 69 | [t comp|letion-i|
|00001e40| 67 6e 6f 72 65 2d 63 61 | 73 65 20 63 61 6c 65 6e |gnore-ca|se calen|
|00001e50| 64 61 72 2d 72 65 61 64 | 20 22 54 7a 6f 6c 6b 69 |dar-read| "Tzolki|
|00001e60| 6e 20 6b 69 6e 20 28 31 | 2d 31 33 29 3a 20 22 20 |n kin (1|-13): " |
|00001e70| 28 6c 61 6d 62 64 61 20 | 28 78 29 20 28 61 6e 64 |(lambda |(x) (and|
|00001e80| 20 28 3e 20 78 20 30 29 | 20 28 3c 20 78 20 31 34 | (> x 0)| (< x 14|
|00001e90| 29 29 29 20 74 7a 6f 6c | 6b 69 6e 2d 63 6f 75 6e |))) tzol|kin-coun|
|00001ea0| 74 20 61 70 70 65 6e 64 | 20 63 61 6c 65 6e 64 61 |t append| calenda|
|00001eb0| 72 2d 6d 61 79 61 6e 2d | 74 7a 6f 6c 6b 69 6e 2d |r-mayan-|tzolkin-|
|00001ec0| 6e 61 6d 65 73 2d 61 72 | 72 61 79 20 6e 69 6c 20 |names-ar|ray nil |
|00001ed0| 74 7a 6f 6c 6b 69 6e 2d | 6e 61 6d 65 2d 6c 69 73 |tzolkin-|name-lis|
|00001ee0| 74 20 61 73 73 6f 63 20 | 63 61 70 69 74 61 6c 69 |t assoc |capitali|
|00001ef0| 7a 65 20 63 6f 6d 70 6c | 65 74 69 6e 67 2d 72 65 |ze compl|eting-re|
|00001f00| 61 64 20 22 54 7a 6f 6c | 6b 69 6e 20 75 69 6e 61 |ad "Tzol|kin uina|
|00001f10| 6c 3a 20 22 20 6d 61 70 | 63 61 72 20 6c 69 73 74 |l: " map|car list|
|00001f20| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 6b 65 2d 61 | calenda|r-make-a|
|00001f30| 6c 69 73 74 20 31 20 74 | 7a 6f 6c 6b 69 6e 2d 6e |list 1 t|zolkin-n|
|00001f40| 61 6d 65 5d 20 37 20 22 | 5c 0a 50 72 6f 6d 70 74 |ame] 7 "|\.Prompt|
|00001f50| 20 66 6f 72 20 61 20 4d | 61 79 61 6e 20 74 7a 6f | for a M|ayan tzo|
|00001f60| 6c 6b 69 6e 20 64 61 74 | 65 22 5d 29 0a 28 66 73 |lkin dat|e"]).(fs|
|00001f70| 65 74 20 27 63 61 6c 65 | 6e 64 61 72 2d 6e 65 78 |et 'cale|ndar-nex|
|00001f80| 74 2d 63 61 6c 65 6e 64 | 61 72 2d 72 6f 75 6e 64 |t-calend|ar-round|
|00001f90| 2d 64 61 74 65 20 23 5b | 28 74 7a 6f 6c 6b 69 6e |-date #[|(tzolkin|
|00001fa0| 2d 64 61 74 65 20 68 61 | 61 62 2d 64 61 74 65 20 |-date ha|ab-date |
|00001fb0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 6f 65 63 68 6f |&optiona|l noecho|
|00001fc0| 29 20 22 c0 09 5c 6e c3 | 20 89 1c 89 1c 41 41 40 |) "..\n.| ....AA@|
|00001fd0| 29 53 1d 0c 1c c6 0c 21 | 1e 07 c8 0c 21 1e 09 ca |)S.....!|....!...|
|00001fe0| 0c 21 1e 0b 0e 09 cc 0e | 07 53 5f 5c 5c 1e 0d 0e |.!......|.S_\\...|
|00001ff0| 07 ce 56 ab 98 0e 0d cf | d0 0e 07 5f 5c 5c d1 a5 |..V.....|..._\\..|
|00002000| 5a 16 0d d2 0e 0b 21 ab | 85 0e 0d 54 16 0d 0e 0d |Z.....!.|...T....|
|00002010| 2d 0d d3 5f 0d d0 a5 0d | d4 a5 5b 0d d5 a5 5c 5c |-.._....|..[...\\|
|00002020| 5c 5c 5c 5c 5c 5c 2a d6 | 5c 5c 23 89 1c ac 8b d7 |\\\\\\*.|\\#.....|
|00002030| d8 d9 09 21 da 5c 6e 21 | 23 aa 8c db dc 0c 21 21 |...!.\n!|#.....!!|
|00002040| 88 0e 1d ae 82 de 20 29 | 87 22 20 5b 63 61 6c 65 |...... )|." [cale|
|00002050| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 74 7a 6f 6c 6b |ndar-may|an-tzolk|
|00002060| 69 6e 2d 68 61 61 62 2d | 6f 6e 2d 6f 72 2d 62 65 |in-haab-|on-or-be|
|00002070| 66 6f 72 65 20 74 7a 6f | 6c 6b 69 6e 2d 64 61 74 |fore tzo|lkin-dat|
|00002080| 65 20 68 61 61 62 2d 64 | 61 74 65 20 63 61 6c 65 |e haab-d|ate cale|
|00002090| 6e 64 61 72 2d 63 75 72 | 73 6f 72 2d 74 6f 2d 64 |ndar-cur|sor-to-d|
|000020a0| 61 74 65 20 64 61 74 65 | 20 70 72 69 6f 72 2d 79 |ate date| prior-y|
|000020b0| 65 61 72 73 20 65 78 74 | 72 61 63 74 2d 63 61 6c |ears ext|ract-cal|
|000020c0| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 20 6d 6f 6e 74 |endar-mo|nth mont|
|000020d0| 68 20 65 78 74 72 61 63 | 74 2d 63 61 6c 65 6e 64 |h extrac|t-calend|
|000020e0| 61 72 2d 64 61 79 20 64 | 61 79 20 65 78 74 72 61 |ar-day d|ay extra|
|000020f0| 63 74 2d 63 61 6c 65 6e | 64 61 72 2d 79 65 61 72 |ct-calen|dar-year|
|00002100| 20 79 65 61 72 20 33 31 | 20 64 61 79 2d 6f 66 2d | year 31| day-of-|
|00002110| 79 65 61 72 20 32 20 32 | 33 20 34 20 31 30 20 63 |year 2 2|3 4 10 c|
|00002120| 61 6c 65 6e 64 61 72 2d | 6c 65 61 70 2d 79 65 61 |alendar-|leap-yea|
|00002130| 72 2d 70 20 33 36 35 20 | 31 30 30 20 34 30 30 20 |r-p 365 |100 400 |
|00002140| 31 38 39 38 30 20 65 72 | 72 6f 72 20 22 25 73 2c |18980 er|ror "%s,|
|00002150| 20 25 73 20 64 6f 65 73 | 20 6e 6f 74 20 65 78 69 | %s does| not exi|
|00002160| 73 74 20 69 6e 20 74 68 | 65 20 4d 61 79 61 6e 20 |st in th|e Mayan |
|00002170| 63 61 6c 65 6e 64 61 72 | 20 72 6f 75 6e 64 22 20 |calendar| round" |
|00002180| 63 61 6c 65 6e 64 61 72 | 2d 6d 61 79 61 6e 2d 74 |calendar|-mayan-t|
|00002190| 7a 6f 6c 6b 69 6e 2d 74 | 6f 2d 73 74 72 69 6e 67 |zolkin-t|o-string|
|000021a0| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d | calenda|r-mayan-|
|000021b0| 68 61 61 62 2d 74 6f 2d | 73 74 72 69 6e 67 20 63 |haab-to-|string c|
|000021c0| 61 6c 65 6e 64 61 72 2d | 67 6f 74 6f 2d 64 61 74 |alendar-|goto-dat|
|000021d0| 65 20 63 61 6c 65 6e 64 | 61 72 2d 67 72 65 67 6f |e calend|ar-grego|
|000021e0| 72 69 61 6e 2d 66 72 6f | 6d 2d 61 62 73 6f 6c 75 |rian-fro|m-absolu|
|000021f0| 74 65 20 6e 6f 65 63 68 | 6f 20 63 61 6c 65 6e 64 |te noech|o calend|
|00002200| 61 72 2d 70 72 69 6e 74 | 2d 6d 61 79 61 6e 2d 64 |ar-print|-mayan-d|
|00002210| 61 74 65 5d 20 31 30 20 | 22 5c 0a 4d 6f 76 65 20 |ate] 10 |"\.Move |
|00002220| 63 75 72 73 6f 72 20 74 | 6f 20 6e 65 78 74 20 69 |cursor t|o next i|
|00002230| 6e 73 74 61 6e 63 65 20 | 6f 66 20 4d 61 79 61 6e |nstance |of Mayan|
|00002240| 20 48 41 41 42 2d 44 41 | 54 45 20 54 5a 4f 4b 4c | HAAB-DA|TE TZOKL|
|00002250| 49 4e 2d 44 41 54 45 20 | 63 6f 6d 62 69 6e 61 74 |IN-DATE |combinat|
|00002260| 69 6f 6e 2e 0a 45 63 68 | 6f 20 4d 61 79 61 6e 20 |ion..Ech|o Mayan |
|00002270| 64 61 74 65 20 69 66 20 | 4e 4f 45 43 48 4f 20 69 |date if |NOECHO i|
|00002280| 73 20 74 2e 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |s t." (b|yte-code|
|00002290| 20 22 c0 20 c1 20 44 87 | 22 20 5b 63 61 6c 65 6e | ". . D.|" [calen|
|000022a0| 64 61 72 2d 72 65 61 64 | 2d 6d 61 79 61 6e 2d 74 |dar-read|-mayan-t|
|000022b0| 7a 6f 6c 6b 69 6e 2d 64 | 61 74 65 20 63 61 6c 65 |zolkin-d|ate cale|
|000022c0| 6e 64 61 72 2d 72 65 61 | 64 2d 6d 61 79 61 6e 2d |ndar-rea|d-mayan-|
|000022d0| 68 61 61 62 2d 64 61 74 | 65 5d 20 32 29 5d 29 0a |haab-dat|e] 2)]).|
|000022e0| 28 66 73 65 74 20 27 63 | 61 6c 65 6e 64 61 72 2d |(fset 'c|alendar-|
|000022f0| 70 72 65 76 69 6f 75 73 | 2d 63 61 6c 65 6e 64 61 |previous|-calenda|
|00002300| 72 2d 72 6f 75 6e 64 2d | 64 61 74 65 20 23 5b 28 |r-round-|date #[(|
|00002310| 74 7a 6f 6c 6b 69 6e 2d | 64 61 74 65 20 68 61 61 |tzolkin-|date haa|
|00002320| 62 2d 64 61 74 65 20 26 | 6f 70 74 69 6f 6e 61 6c |b-date &|optional|
|00002330| 20 6e 6f 65 63 68 6f 29 | 20 22 c0 09 5c 6e c3 20 | noecho)| "..\n. |
|00002340| 1c c5 0c 21 53 1e 06 c7 | 0c 21 c8 0e 06 5f 0e 06 |...!S...|.!..._..|
|00002350| c9 a5 0e 06 ca a5 5b 0e | 06 cb a5 5c 5c 5c 5c 5c |......[.|...\\\\\|
|00002360| 5c 5c 5c 2a 53 23 89 1c | ac 8b cc cd ce 09 21 cf |\\\*S#..|......!.|
|00002370| 5c 6e 21 23 aa 8c d0 d1 | 0c 21 21 88 0e 12 ae 82 |\n!#....|.!!.....|
|00002380| d3 20 29 87 22 20 5b 63 | 61 6c 65 6e 64 61 72 2d |. )." [c|alendar-|
|00002390| 6d 61 79 61 6e 2d 74 7a | 6f 6c 6b 69 6e 2d 68 61 |mayan-tz|olkin-ha|
|000023a0| 61 62 2d 6f 6e 2d 6f 72 | 2d 62 65 66 6f 72 65 20 |ab-on-or|-before |
|000023b0| 74 7a 6f 6c 6b 69 6e 2d | 64 61 74 65 20 68 61 61 |tzolkin-|date haa|
|000023c0| 62 2d 64 61 74 65 20 63 | 61 6c 65 6e 64 61 72 2d |b-date c|alendar-|
|000023d0| 63 75 72 73 6f 72 2d 74 | 6f 2d 64 61 74 65 20 64 |cursor-t|o-date d|
|000023e0| 61 74 65 20 65 78 74 72 | 61 63 74 2d 63 61 6c 65 |ate extr|act-cale|
|000023f0| 6e 64 61 72 2d 79 65 61 | 72 20 70 72 69 6f 72 2d |ndar-yea|r prior-|
|00002400| 79 65 61 72 73 20 63 61 | 6c 65 6e 64 61 72 2d 64 |years ca|lendar-d|
|00002410| 61 79 2d 6e 75 6d 62 65 | 72 20 33 36 35 20 34 20 |ay-numbe|r 365 4 |
|00002420| 31 30 30 20 34 30 30 20 | 65 72 72 6f 72 20 22 25 |100 400 |error "%|
|00002430| 73 2c 20 25 73 20 64 6f | 65 73 20 6e 6f 74 20 65 |s, %s do|es not e|
|00002440| 78 69 73 74 20 69 6e 20 | 74 68 65 20 4d 61 79 61 |xist in |the Maya|
|00002450| 6e 20 63 61 6c 65 6e 64 | 61 72 20 72 6f 75 6e 64 |n calend|ar round|
|00002460| 22 20 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e |" calend|ar-mayan|
|00002470| 2d 74 7a 6f 6c 6b 69 6e | 2d 74 6f 2d 73 74 72 69 |-tzolkin|-to-stri|
|00002480| 6e 67 20 63 61 6c 65 6e | 64 61 72 2d 6d 61 79 61 |ng calen|dar-maya|
|00002490| 6e 2d 68 61 61 62 2d 74 | 6f 2d 73 74 72 69 6e 67 |n-haab-t|o-string|
|000024a0| 20 63 61 6c 65 6e 64 61 | 72 2d 67 6f 74 6f 2d 64 | calenda|r-goto-d|
|000024b0| 61 74 65 20 63 61 6c 65 | 6e 64 61 72 2d 67 72 65 |ate cale|ndar-gre|
|000024c0| 67 6f 72 69 61 6e 2d 66 | 72 6f 6d 2d 61 62 73 6f |gorian-f|rom-abso|
|000024d0| 6c 75 74 65 20 6e 6f 65 | 63 68 6f 20 63 61 6c 65 |lute noe|cho cale|
|000024e0| 6e 64 61 72 2d 70 72 69 | 6e 74 2d 6d 61 79 61 6e |ndar-pri|nt-mayan|
|000024f0| 2d 64 61 74 65 5d 20 31 | 30 20 22 5c 0a 4d 6f 76 |-date] 1|0 "\.Mov|
|00002500| 65 20 74 6f 20 70 72 65 | 76 69 6f 75 73 20 69 6e |e to pre|vious in|
|00002510| 73 74 61 6e 63 65 20 6f | 66 20 4d 61 79 61 6e 20 |stance o|f Mayan |
|00002520| 54 5a 4f 4b 4c 49 4e 2d | 44 41 54 45 20 48 41 41 |TZOKLIN-|DATE HAA|
|00002530| 42 2d 44 41 54 45 20 63 | 6f 6d 62 69 6e 61 74 69 |B-DATE c|ombinati|
|00002540| 6f 6e 2e 0a 45 63 68 6f | 20 4d 61 79 61 6e 20 64 |on..Echo| Mayan d|
|00002550| 61 74 65 20 69 66 20 4e | 4f 45 43 48 4f 20 69 73 |ate if N|OECHO is|
|00002560| 20 74 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | t." (by|te-code |
|00002570| 22 c0 20 c1 20 44 87 22 | 20 5b 63 61 6c 65 6e 64 |". . D."| [calend|
|00002580| 61 72 2d 72 65 61 64 2d | 6d 61 79 61 6e 2d 74 7a |ar-read-|mayan-tz|
|00002590| 6f 6c 6b 69 6e 2d 64 61 | 74 65 20 63 61 6c 65 6e |olkin-da|te calen|
|000025a0| 64 61 72 2d 72 65 61 64 | 2d 6d 61 79 61 6e 2d 68 |dar-read|-mayan-h|
|000025b0| 61 61 62 2d 64 61 74 65 | 5d 20 32 29 5d 29 0a 28 |aab-date|] 2)]).(|
|000025c0| 66 73 65 74 20 27 63 61 | 6c 65 6e 64 61 72 2d 61 |fset 'ca|lendar-a|
|000025d0| 62 73 6f 6c 75 74 65 2d | 66 72 6f 6d 2d 6d 61 79 |bsolute-|from-may|
|000025e0| 61 6e 2d 6c 6f 6e 67 2d | 63 6f 75 6e 74 20 23 5b |an-long-|count #[|
|000025f0| 28 63 29 20 22 08 40 c1 | 5f 08 41 40 c2 5f c3 08 |(c) ".@.|_.A@._..|
|00002600| 38 c4 5f c5 08 38 c6 5f | c7 08 38 0e 08 5b 5c 5c |8._..8._|..8..[\\|
|00002610| 5c 5c 5c 5c 5c 5c 5c 5c | 87 22 20 5b 63 20 31 34 |\\\\\\\\|." [c 14|
|00002620| 34 30 30 30 20 37 32 30 | 30 20 32 20 33 36 30 20 |4000 720|0 2 360 |
|00002630| 33 20 32 30 20 34 20 63 | 61 6c 65 6e 64 61 72 2d |3 20 4 c|alendar-|
|00002640| 6d 61 79 61 6e 2d 64 61 | 79 73 2d 62 65 66 6f 72 |mayan-da|ys-befor|
|00002650| 65 2d 61 62 73 6f 6c 75 | 74 65 2d 7a 65 72 6f 5d |e-absolu|te-zero]|
|00002660| 20 36 20 22 5c 0a 43 6f | 6d 70 75 74 65 20 74 68 | 6 "\.Co|mpute th|
|00002670| 65 20 61 62 73 6f 6c 75 | 74 65 20 64 61 74 65 20 |e absolu|te date |
|00002680| 63 6f 72 72 65 73 70 6f | 6e 64 69 6e 67 20 74 6f |correspo|nding to|
|00002690| 20 74 68 65 20 4d 61 79 | 61 6e 20 4c 6f 6e 67 20 | the May|an Long |
|000026a0| 43 6f 75 6e 74 20 43 2e | 0a 4c 6f 6e 67 20 63 6f |Count C.|.Long co|
|000026b0| 75 6e 74 20 69 73 20 61 | 20 6c 69 73 74 20 28 62 |unt is a| list (b|
|000026c0| 61 6b 74 75 6e 20 6b 61 | 74 75 6e 20 74 75 6e 20 |aktun ka|tun tun |
|000026d0| 75 69 6e 61 6c 20 6b 69 | 6e 29 22 5d 29 0a 28 66 |uinal ki|n)"]).(f|
|000026e0| 73 65 74 20 27 63 61 6c | 65 6e 64 61 72 2d 6d 61 |set 'cal|endar-ma|
|000026f0| 79 61 6e 2d 64 61 74 65 | 2d 73 74 72 69 6e 67 20 |yan-date|-string |
|00002700| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 64 61 74 |#[(&opti|onal dat|
|00002710| 65 29 20 22 08 ae 82 c1 | 20 18 c2 08 21 53 1b c4 |e) "....| ...!S..|
|00002720| 08 21 c5 0b 5f 0b c6 a5 | 0b c7 a5 5b 0b c8 a5 5c |.!.._...|...[...\|
|00002730| 5c 5c 5c 5c 5c 5c 5c 2a | 1e 09 ca 0e 09 21 1e 0b |\\\\\\\*|.....!..|
|00002740| cc 0e 09 21 1e 0d ce 0e | 09 21 1e 0f d0 d1 d2 0e |...!....|.!......|
|00002750| 0f 21 d3 0e 0b 21 d4 0e | 0d 21 24 2c 87 22 20 5b |.!...!..|.!$,." [|
|00002760| 64 61 74 65 20 63 61 6c | 65 6e 64 61 72 2d 63 75 |date cal|endar-cu|
|00002770| 72 72 65 6e 74 2d 64 61 | 74 65 20 65 78 74 72 61 |rrent-da|te extra|
|00002780| 63 74 2d 63 61 6c 65 6e | 64 61 72 2d 79 65 61 72 |ct-calen|dar-year|
|00002790| 20 70 72 69 6f 72 2d 79 | 65 61 72 73 20 63 61 6c | prior-y|ears cal|
|000027a0| 65 6e 64 61 72 2d 64 61 | 79 2d 6e 75 6d 62 65 72 |endar-da|y-number|
|000027b0| 20 33 36 35 20 34 20 31 | 30 30 20 34 30 30 20 64 | 365 4 1|00 400 d|
|000027c0| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d | calenda|r-mayan-|
|000027d0| 74 7a 6f 6c 6b 69 6e 2d | 66 72 6f 6d 2d 61 62 73 |tzolkin-|from-abs|
|000027e0| 6f 6c 75 74 65 20 74 7a | 6f 6c 6b 69 6e 20 63 61 |olute tz|olkin ca|
|000027f0| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 68 61 61 |lendar-m|ayan-haa|
|00002800| 62 2d 66 72 6f 6d 2d 61 | 62 73 6f 6c 75 74 65 20 |b-from-a|bsolute |
|00002810| 68 61 61 62 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |haab cal|endar-ma|
|00002820| 79 61 6e 2d 6c 6f 6e 67 | 2d 63 6f 75 6e 74 2d 66 |yan-long|-count-f|
|00002830| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 20 6c 6f 6e |rom-abso|lute lon|
|00002840| 67 2d 63 6f 75 6e 74 20 | 66 6f 72 6d 61 74 20 22 |g-count |format "|
|00002850| 4c 6f 6e 67 20 63 6f 75 | 6e 74 20 3d 20 25 73 3b |Long cou|nt = %s;|
|00002860| 20 74 7a 6f 6c 6b 69 6e | 20 3d 20 25 73 3b 20 68 | tzolkin| = %s; h|
|00002870| 61 61 62 20 3d 20 25 73 | 22 20 63 61 6c 65 6e 64 |aab = %s|" calend|
|00002880| 61 72 2d 6d 61 79 61 6e | 2d 6c 6f 6e 67 2d 63 6f |ar-mayan|-long-co|
|00002890| 75 6e 74 2d 74 6f 2d 73 | 74 72 69 6e 67 20 63 61 |unt-to-s|tring ca|
|000028a0| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 74 7a 6f |lendar-m|ayan-tzo|
|000028b0| 6c 6b 69 6e 2d 74 6f 2d | 73 74 72 69 6e 67 20 63 |lkin-to-|string c|
|000028c0| 61 6c 65 6e 64 61 72 2d | 6d 61 79 61 6e 2d 68 61 |alendar-|mayan-ha|
|000028d0| 61 62 2d 74 6f 2d 73 74 | 72 69 6e 67 5d 20 36 20 |ab-to-st|ring] 6 |
|000028e0| 22 5c 0a 53 74 72 69 6e | 67 20 6f 66 20 4d 61 79 |"\.Strin|g of May|
|000028f0| 61 6e 20 64 61 74 65 20 | 6f 66 20 47 72 65 67 6f |an date |of Grego|
|00002900| 72 69 61 6e 20 44 41 54 | 45 2e 0a 44 65 66 61 75 |rian DAT|E..Defau|
|00002910| 6c 74 73 20 74 6f 20 74 | 6f 64 61 79 27 73 20 64 |lts to t|oday's d|
|00002920| 61 74 65 20 69 66 20 44 | 41 54 45 20 69 73 20 6e |ate if D|ATE is n|
|00002930| 6f 74 20 67 69 76 65 6e | 2e 22 5d 29 0a 28 66 73 |ot given|."]).(fs|
|00002940| 65 74 20 27 63 61 6c 65 | 6e 64 61 72 2d 70 72 69 |et 'cale|ndar-pri|
|00002950| 6e 74 2d 6d 61 79 61 6e | 2d 64 61 74 65 20 23 5b |nt-mayan|-date #[|
|00002960| 6e 69 6c 20 22 c0 c1 c2 | c3 c4 21 21 5c 22 87 22 |nil "...|..!!\"."|
|00002970| 20 5b 6d 65 73 73 61 67 | 65 20 22 4d 61 79 61 6e | [messag|e "Mayan|
|00002980| 20 64 61 74 65 3a 20 25 | 73 22 20 63 61 6c 65 6e | date: %|s" calen|
|00002990| 64 61 72 2d 6d 61 79 61 | 6e 2d 64 61 74 65 2d 73 |dar-maya|n-date-s|
|000029a0| 74 72 69 6e 67 20 63 61 | 6c 65 6e 64 61 72 2d 63 |tring ca|lendar-c|
|000029b0| 75 72 73 6f 72 2d 74 6f | 2d 64 61 74 65 20 74 5d |ursor-to|-date t]|
|000029c0| 20 35 20 22 5c 0a 53 68 | 6f 77 20 74 68 65 20 4d | 5 "\.Sh|ow the M|
|000029d0| 61 79 61 6e 20 6c 6f 6e | 67 20 63 6f 75 6e 74 2c |ayan lon|g count,|
|000029e0| 20 74 7a 6f 6c 6b 69 6e | 2c 20 61 6e 64 20 68 61 | tzolkin|, and ha|
|000029f0| 61 62 20 65 71 75 69 76 | 61 6c 65 6e 74 73 20 6f |ab equiv|alents o|
|00002a00| 66 20 64 61 74 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 |f date."| nil]).(|
|00002a10| 66 73 65 74 20 27 63 61 | 6c 65 6e 64 61 72 2d 67 |fset 'ca|lendar-g|
|00002a20| 6f 74 6f 2d 6d 61 79 61 | 6e 2d 6c 6f 6e 67 2d 63 |oto-maya|n-long-c|
|00002a30| 6f 75 6e 74 2d 64 61 74 | 65 20 23 5b 28 64 61 74 |ount-dat|e #[(dat|
|00002a40| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 65 63 |e &optio|nal noec|
|00002a50| 68 6f 29 20 22 c0 c1 c2 | 0b 21 21 21 88 0c ae 82 |ho) "...|.!!!....|
|00002a60| c5 20 87 22 20 5b 63 61 | 6c 65 6e 64 61 72 2d 67 |. ." [ca|lendar-g|
|00002a70| 6f 74 6f 2d 64 61 74 65 | 20 63 61 6c 65 6e 64 61 |oto-date| calenda|
|00002a80| 72 2d 67 72 65 67 6f 72 | 69 61 6e 2d 66 72 6f 6d |r-gregor|ian-from|
|00002a90| 2d 61 62 73 6f 6c 75 74 | 65 20 63 61 6c 65 6e 64 |-absolut|e calend|
|00002aa0| 61 72 2d 61 62 73 6f 6c | 75 74 65 2d 66 72 6f 6d |ar-absol|ute-from|
|00002ab0| 2d 6d 61 79 61 6e 2d 6c | 6f 6e 67 2d 63 6f 75 6e |-mayan-l|ong-coun|
|00002ac0| 74 20 64 61 74 65 20 6e | 6f 65 63 68 6f 20 63 61 |t date n|oecho ca|
|00002ad0| 6c 65 6e 64 61 72 2d 70 | 72 69 6e 74 2d 6d 61 79 |lendar-p|rint-may|
|00002ae0| 61 6e 2d 64 61 74 65 5d | 20 34 20 22 5c 0a 4d 6f |an-date]| 4 "\.Mo|
|00002af0| 76 65 20 63 75 72 73 6f | 72 20 74 6f 20 4d 61 79 |ve curso|r to May|
|00002b00| 61 6e 20 6c 6f 6e 67 20 | 63 6f 75 6e 74 20 44 41 |an long |count DA|
|00002b10| 54 45 2e 20 20 45 63 68 | 6f 20 4d 61 79 61 6e 20 |TE.  Ech|o Mayan |
|00002b20| 64 61 74 65 20 75 6e 6c | 65 73 73 20 4e 4f 45 43 |date unl|ess NOEC|
|00002b30| 48 4f 20 69 73 20 74 2e | 22 20 28 62 79 74 65 2d |HO is t.|" (byte-|
|00002b40| 63 6f 64 65 20 22 c0 19 | 09 ac bc c2 c3 c4 c5 c6 |code "..|........|
|00002b50| c7 20 1e 08 c9 0e 08 21 | 53 1e 5c 6e cb 0e 08 21 |. .....!|S.\n...!|
|00002b60| cc 0e 5c 6e 5f 0e 5c 6e | cd a5 0e 5c 6e ce a5 5b |..\n_.\n|...\n..[|
|00002b70| 0e 5c 6e cf a5 5c 5c 5c | 5c 5c 5c 5c 5c 2a 21 21 |.\n..\\\|\\\\\*!!|
|00002b80| 5c 22 21 1e 10 d1 0e 10 | 21 ab 83 0e 10 11 29 aa |\"!.....|!.....).|
|00002b90| 41 09 29 43 87 22 20 5b | 6e 69 6c 20 6c 63 20 63 |A.)C." [|nil lc c|
|00002ba0| 61 6c 65 6e 64 61 72 2d | 73 74 72 69 6e 67 2d 74 |alendar-|string-t|
|00002bb0| 6f 2d 6d 61 79 61 6e 2d | 6c 6f 6e 67 2d 63 6f 75 |o-mayan-|long-cou|
|00002bc0| 6e 74 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 22 |nt read-|string "|
|00002bd0| 4d 61 79 61 6e 20 6c 6f | 6e 67 20 63 6f 75 6e 74 |Mayan lo|ng count|
|00002be0| 20 28 62 61 6b 74 75 6e | 2e 6b 61 74 75 6e 2e 74 | (baktun|.katun.t|
|00002bf0| 75 6e 2e 75 69 6e 61 6c | 2e 6b 69 6e 29 3a 20 22 |un.uinal|.kin): "|
|00002c00| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d | calenda|r-mayan-|
|00002c10| 6c 6f 6e 67 2d 63 6f 75 | 6e 74 2d 74 6f 2d 73 74 |long-cou|nt-to-st|
|00002c20| 72 69 6e 67 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |ring cal|endar-ma|
|00002c30| 79 61 6e 2d 6c 6f 6e 67 | 2d 63 6f 75 6e 74 2d 66 |yan-long|-count-f|
|00002c40| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 20 63 61 6c |rom-abso|lute cal|
|00002c50| 65 6e 64 61 72 2d 63 75 | 72 72 65 6e 74 2d 64 61 |endar-cu|rrent-da|
|00002c60| 74 65 20 64 61 74 65 20 | 65 78 74 72 61 63 74 2d |te date |extract-|
|00002c70| 63 61 6c 65 6e 64 61 72 | 2d 79 65 61 72 20 70 72 |calendar|-year pr|
|00002c80| 69 6f 72 2d 79 65 61 72 | 73 20 63 61 6c 65 6e 64 |ior-year|s calend|
|00002c90| 61 72 2d 64 61 79 2d 6e | 75 6d 62 65 72 20 33 36 |ar-day-n|umber 36|
|00002ca0| 35 20 34 20 31 30 30 20 | 34 30 30 20 64 61 74 75 |5 4 100 |400 datu|
|00002cb0| 6d 20 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e |m calend|ar-mayan|
|00002cc0| 2d 6c 6f 6e 67 2d 63 6f | 75 6e 74 2d 63 6f 6d 6d |-long-co|unt-comm|
|00002cd0| 6f 6e 2d 65 72 61 5d 20 | 31 31 29 5d 29 0a 28 66 |on-era] |11)]).(f|
|00002ce0| 73 65 74 20 27 63 61 6c | 65 6e 64 61 72 2d 6d 61 |set 'cal|endar-ma|
|00002cf0| 79 61 6e 2d 6c 6f 6e 67 | 2d 63 6f 75 6e 74 2d 63 |yan-long|-count-c|
|00002d00| 6f 6d 6d 6f 6e 2d 65 72 | 61 20 23 5b 28 6c 63 29 |ommon-er|a #[(lc)|
|00002d10| 20 22 c0 c1 21 89 1a ab | 90 0b 40 5c 6e 40 55 ab | "..!...|..@\n@U.|
|00002d20| 89 0b 41 13 5c 6e 41 89 | 12 ac 70 0b 3f ae 85 0b |..A.\nA.|..p.?...|
|00002d30| 40 5c 6e 40 56 29 87 22 | 20 5b 63 61 6c 65 6e 64 |@\n@V)."| [calend|
|00002d40| 61 72 2d 6d 61 79 61 6e | 2d 6c 6f 6e 67 2d 63 6f |ar-mayan|-long-co|
|00002d50| 75 6e 74 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |unt-from|-absolut|
|00002d60| 65 20 31 20 62 61 73 65 | 20 6c 63 5d 20 33 20 22 |e 1 base| lc] 3 "|
|00002d70| 5c 0a 54 20 69 66 20 6c | 6f 6e 67 20 63 6f 75 6e |\.T if l|ong coun|
|00002d80| 74 20 72 65 70 72 65 73 | 65 6e 74 73 20 64 61 74 |t repres|ents dat|
|00002d90| 65 20 69 6e 20 74 68 65 | 20 43 6f 6d 6d 6f 6e 20 |e in the| Common |
|00002da0| 45 72 61 2e 22 5d 29 0a | 28 66 73 65 74 20 27 64 |Era."]).|(fset 'd|
|00002db0| 69 61 72 79 2d 6d 61 79 | 61 6e 2d 64 61 74 65 20 |iary-may|an-date |
|00002dc0| 23 5b 6e 69 6c 20 22 c0 | c1 c2 0b 21 5c 22 87 22 |#[nil ".|...!\"."|
|00002dd0| 20 5b 66 6f 72 6d 61 74 | 20 22 4d 61 79 61 6e 20 | [format| "Mayan |
|00002de0| 64 61 74 65 3a 20 25 73 | 22 20 63 61 6c 65 6e 64 |date: %s|" calend|
|00002df0| 61 72 2d 6d 61 79 61 6e | 2d 64 61 74 65 2d 73 74 |ar-mayan|-date-st|
|00002e00| 72 69 6e 67 20 64 61 74 | 65 5d 20 34 20 22 5c 0a |ring dat|e] 4 "\.|
|00002e10| 53 68 6f 77 20 74 68 65 | 20 4d 61 79 61 6e 20 6c |Show the| Mayan l|
|00002e20| 6f 6e 67 20 63 6f 75 6e | 74 2c 20 68 61 61 62 2c |ong coun|t, haab,|
|00002e30| 20 61 6e 64 20 74 7a 6f | 6c 6b 69 6e 20 64 61 74 | and tzo|lkin dat|
|00002e40| 65 73 20 61 73 20 61 20 | 64 69 61 72 79 20 65 6e |es as a |diary en|
|00002e50| 74 72 79 2e 22 5d 29 0a | 28 70 72 6f 76 69 64 65 |try."]).|(provide|
|00002e60| 20 27 63 61 6c 2d 6d 61 | 79 61 6e 29 0a          | 'cal-ma|yan).   |
+--------+-------------------------+-------------------------+--------+--------+